home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / pwd.arc / PWD.BAS next >
Encoding:
BASIC Source File  |  1980-01-01  |  164 b   |  5 lines
  1. 1 CLS:INPUT "ENTER FILENAME FOR THIS PROGRAM (NO EXT.):",F$
  2. 2 CLS:INPUT "PICK A PASSWORD:",PWD$
  3. 4 OPEN F$ FOR OUTPUT AS #1:WRITE #1,PWD$:CLOSE
  4. 5 MERGE"A:PWD2"
  5.